TODO: Tekst readme plakken
Main focus points
Least popular songs
Most popular songs
Interactive radarchart of spotify measurements on eminem
Chroma feature example of my favourtite eminem song.
Eminem
A thing to note already is that the paul skit appears on multiple albums and that his skits often aren’t very popular. A reason for this could be that these skits aren’t songs and are often a story within the album. An example is the paul skit or skits I should say. These skits, since there are multiple named Paul are a reference to his music manager Paul Rosenberg in which eminem often features a snippet of a phone conversation with some information about the album.
An interesting thing to see here is that all of his major albums have at least one song with a high popularity with personally one of his best albums “recovery” having two in it. I would like to delve into popularity per album and compare the populartiy with other things spotify measures later on.
It is interesting that instrumentalness is almost non-existent.
Energy and danceability are high.
Speechiness is low, this can be explained by eminemns gimmick. Namely rapping very fast, which is hard to replicate.
---
title: "HTML Widgets Showcase"
output:
flexdashboard::flex_dashboard:
storyboard: true
social: menu
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(spotifyr)
library(dplyr)
library(fmsb)
library(png)
library(plotly)
```
``` {r get_playlist, include=FALSE}
Eminem <- get_playlist_audio_features("", "6E8sLG3bm1meTRj8n5l0ll")
mean_eminem <- Eminem %>%
summarise(
mean_danceability = mean(danceability),
mean_energy = mean(energy),
mean_speechiness = mean(speechiness),
mean_acousticness = mean(acousticness),
mean_instrumentalness = mean(instrumentalness),
mean_liveness = mean(liveness),
mean_valence = mean(valence)
)
```
### Introduction
TODO: Tekst readme plakken
***
Main focus points
- Least popular songs
- Most popular songs
- Interactive radarchart of spotify measurements on eminem
- Chroma feature example of my favourtite eminem song.
***
{width=100%}
### Least popular
``` {r}
Eminem %>%
group_by(track.popularity) %>%
filter(track.popularity <= "35") %>%
ggplot(aes(x =track.popularity , y = track.name)) +
geom_col(aes(fill = track.album.name)) +
labs(x= "Popularity") +
ggtitle("What are the least popular Eminem songs?", "Popularity ranking < 35") +
theme(legend.position = "right",
legend.text = element_text( size = 6),
text = element_text(size = 8),
axis.title.y = element_blank())
```
***
#### Least popular songs
A thing to note already is that the paul skit appears on multiple albums and
that his skits often aren't very popular. A reason for this could be that these
skits aren't songs and are often a story within the album. An example is the
paul skit or skits I should say. These skits, since there are multiple named
Paul are a reference to his music manager Paul Rosenberg in which eminem often
features a snippet of a phone conversation with some information about the album.
### Most popular
``` {r}
Eminem %>%
group_by(track.popularity) %>%
filter(track.popularity >= "75") %>%
ggplot(aes(x =track.popularity , y = track.name)) +
geom_col(aes(fill = track.album.name)) +
labs(x= "Popularity") +
ggtitle("What are the most popular Eminem songs?", "Popularity ranking > 75") +
theme(legend.position = "right",
legend.text = element_text( size = 6),
text = element_text(size = 8),
axis.title.y = element_blank())
```
***
#### Most popular songs of Eminem
An interesting thing to see here is that all of his major albums have at least one song with a high popularity with personally one of his best albums "recovery" having two in it. I would like to delve into popularity per album and compare the populartiy with other things spotify measures later on.
### Radarplot
``` {r}
test <- plot_ly(
type = "scatterpolar",
r= c(0.7129386,0.7213708,0.2985401,0.1928719,0.01342138,0.2951325,0.5395462),
theta = c("mean_danceability", "mean_energy", "mean_speechiness", "mean_acousticness","mean_instrumentalness", "mean_liveness", "mean_valence"),
fill = "toself"
)
test <- test %>%
layout(
polar = list(
radialaxis = list(
visible = T,
range = c(0,1)
)
),
showlegend = F
)
test
```
***
#### This is a radarchart which represents all the mean values of eminems songs.
- It is interesting that instrumentalness is almost non-existent.
- Energy and danceability are high.
- Speechiness is low, this can be explained by eminemns gimmick. Namely rapping very fast, which is hard to replicate.
### Chroma of Mockingbird